Apple Reference & Presen…rary 5 (Internal Edition)/Apple R&P Lib Internal v5.0.iso/6-Developer Demos/Developer Demos-Ed./Macintosh School® CD-ROM Demo/Macintosh SchoolÆ CD-ROM Demo/card_102561.txt

Text File | 1990-08-14 | 6KB | 343 lines

-- card: 102561 from stack: in
-- bmap block id: 102759
-- flags: 4000
-- background id: 19276
-- name: Templates
----- HyperTalk script -----
on openCard
  global buttonNumber
  put char 1 to 3 of the long date & "," & item 2 to 3 of the abbrev date into background field date
  set hilite of background button buttonNumber to false
end openCard

on closeCard
  global buttonNumber
  set hilite of background button buttonNumber to true
  repeat with index = 4 to 12
    set hilite of button id index to false
  end repeat
  set hilite of button id 4 to true
end closeCard

on groupTwo
  if not hilite of target then
    repeat with index = 4 to 12
      set hilite of button id index to false
    end repeat
    set hilite of target to true
  else
    lock screen
    go to card short name of target
    unlock screen
  end if
end groupTwo


-- part 1 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=0 right=342 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 2 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=339 top=192 right=208 bottom=417
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Open
----- HyperTalk script -----
on mouseUp
  lock screen
  put 4 into index
  repeat until hilite of card button id index
    add 1 to index
  end repeat
  go to card short name of card button id index of this background
  unlock screen
end mouseUp



-- part 3 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=339 top=217 right=233 bottom=417
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Cnacel
----- HyperTalk script -----
on mouseUp
  lock screen
  pop card
  unlock screen
end mouseUp



-- part 4 (button)
-- low flags: 00
-- high flags: 4000
-- rect: left=95 top=93 right=109 bottom=296
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Attendance Report
----- HyperTalk script -----
on mouseUp
  groupTwo
end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=95 top=109 right=125 bottom=296
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Letter
----- HyperTalk script -----
on mouseUp
  groupTwo
end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=95 top=125 right=141 bottom=296
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Report Card
----- HyperTalk script -----
on mouseUp
  groupTwo
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=95 top=141 right=157 bottom=296
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 8 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=95 top=157 right=173 bottom=296
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 9 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=95 top=173 right=189 bottom=296
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 10 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=95 top=189 right=205 bottom=296
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 11 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=95 top=205 right=221 bottom=296
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 12 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=95 top=221 right=237 bottom=296
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part contents for background part 1
----- text -----
99 Students

-- part contents for background part 3
----- text -----
47
80
53
54
52
102
48
13
94
93
103
104
44





-- part contents for background part 4
----- text -----
Abrosimoff, Michael John
Adams, Bryan
Alexander, Rick
Alexander, Susan
Allsop, Blair M.
Azimov, Isaac
Barisoff, Larissa
Bunyan, Paul
Burnyeat, Grant
Caldwell, Brian
Chalk, Patricia
Collins, Bob
Conkin, Elizabeth

-- part contents for background part 5
----- text -----
112
112
112
112
112
N/A
112
112
112
112
N/A
N/A
112

-- part contents for background part 6
----- text -----
12
12
12
12
12
11
12
12
12
12
11
11
12

-- part contents for background part 7
----- text -----
0.000
0.000
0.000
0.000
0.000
1.000
0.000
0.000
0.000
0.000
0.000
0.000
0.000

-- part contents for background part 8
----- text -----
1
1
1
1
1
1
1
1
1
1
7
7
1

-- part contents for background part 2
----- text -----
Mon, Aug 28, 1989